home *** CD-ROM | disk | FTP | other *** search
/ Chip 1996 November / Chip 11-96.iso / treiber / grafik / pine / 550m / win95 / algul95.inf < prev    next >
Text File  |  1995-11-25  |  12KB  |  405 lines
  1. DefineVariables
  2. Text [CompanyName] := AVANCE LOGIC, INC.
  3. Text [ProductName] := Avance Logic,Inc. ALG 2302/1301
  4. Logical [OfferInstallationDirectoryChoice] := Y
  5. Directory [DefaultInstallationDirectory] := \WIN\SYSTEM
  6. Directory [TempDirectory]
  7. Text [Bitmap1] := ali.bmp
  8. Text [TempDriveLetter]
  9. Text [ModifyMode] := MODIFY
  10. Number [MinimumFilesSetting] := 20
  11. Number [MinimumBuffersSetting] := 20
  12. Directory [ReadmeFileName]
  13. Logical [InquireAboutSystemFileLocation] := Y
  14. Logical [AskBeforeFileReplacement] := N
  15. Text [ExitMessage] := Thank again!
  16. Directory [ProgramToRun]
  17. Logical [AddInstallDirectoryToPath] := N
  18. Text [MinimumOSVersion]
  19. Number [MinimumSystemMemoryRequiredPresent]
  20. Number [SpaceWeNeedToInstall] := 700000
  21. Logical [AllowCGA] := N
  22. Logical [AllowMDA] := N
  23. Logical [Allow808x] := N
  24. Logical [Allow80286] := Y
  25. Logical [MathCoprocessorRecommended] := N
  26. Logical [FixedDiskRequired] := Y
  27. Text [NetWorkInstallation] := DisallowNetwork
  28. Logical [UseShadows] := Y
  29. Text [MainBorder] := None
  30. Text [PopupBorder] := Single
  31. Text [TopLine] := Installing Avance Logic 2302/1301 Resolutions
  32. Text [TopLineColors] := WhiteOnBrown
  33. Text [BottomLineColors] := WhiteOnLightGray
  34. Text [PopupColors] := WhiteOnCyan
  35. Text [AttentionColors] := WhiteOnRed
  36. Text [SpecialPopupColors] := WhiteOnBrown
  37. Text [Module1Name] := Windows 3.0
  38. Text [Module1Groups] := 1
  39. Text [Module1Description] := Windows 3.0 Drivers
  40. Text [Module2Name] := Windows 3.1
  41. Text [Module2Groups] := 2
  42. Text [Module2Description] := Windows 3.1 Drivers
  43. Text [ExpressSetupDescription]
  44. Text [CustomSetupDescription] := Please Sellect Which Which Windows Version
  45. Text [ExtractionOptions]
  46. ;; remaining variables are not initialized from external Script Data File
  47. Logical [NeedToTerminate] := N
  48. Logical [Installed] := N
  49. Text [DisplayAdapterSummary]
  50. Text [CPUTypeSummary]
  51. Text [NetworkActive]
  52. Text [MathCoprocessorStatus]
  53. Text [InstallationDriveSummary]
  54. Text [OSVersionSummary]
  55. Text [SystemMemorySummary]
  56. Logical [InsufficientSystem] := N
  57. Logical [CompatibilityNoticeGiven] := N
  58. Logical [NeedToModify] := N
  59. Text [PathTask]
  60. Text [BuffersTask]
  61. Text [FilesTask]
  62. Text [BackgroundCharacter] := B0
  63. Text [ScreenColors] := WhiteOnBlue
  64. Text [BottomLine]
  65. Number [Black]
  66. Number [White]
  67. Number [TempDirSpaceRequired] := 300000
  68. EndDefineVariables
  69.  
  70. Procedure Logo
  71. LoadBitMap 1 [InstallationDirectory]\[Bitmap1] @xy(Center,2)
  72. ShowBitMap 1
  73. EndProcedure
  74.  
  75. Do InstallSupportFiles
  76.  
  77. Procedure InstallSupportFiles
  78.        If DriveIsRemoveable [InstallFromDrive]
  79.          [InstallationDirectory] := [InstallFromDrive]:
  80.          SetMouseCursor Wait
  81.          Do Logo
  82.          Do Install
  83.          SetMouseCursor Arrow
  84.          Do InstallProgramGroup
  85.        Else
  86.            [InstallationDirectory] := [InstallFromDirectory]
  87.            If [InstallFromDirectory] Contains \ALGUL95\
  88.              If FileExists [InstallFromDirectory]\avance.drv
  89.                 Dialog @xy(Center,Center) WhiteOnBlack
  90.                   Please copy windows drivers into another
  91.                   directory except [InstallFromDirectory]
  92.                 EndDialog
  93.                 SoLong Quietly
  94.              Else
  95.                Do Logo
  96.              EndIf
  97.            Else
  98.              SetMouseCursor Wait
  99.              Do Logo
  100.              Do Install
  101.              SetMouseCursor Wait
  102.              Do InstallProgramGroup
  103.            EndIf
  104.  
  105.         EndIf
  106. EndProcedure
  107.  
  108. Procedure InstallProgramGroup
  109.   ;;  Dialog [YesOrNo1] @xy(Center,Center) WhiteOnBlack UseHeader "INSTALL for Windows Program Manager Group"
  110.   ;;    Would you like to place INSTALL in a Windows program group?
  111.   ;;  EndDialog
  112.   ;; If [YesOrNo1] = Y
  113.       ProgramManagerDDE
  114.          CreateGroup(Avance Logic Video Player)
  115.          AddItem(C:\ALGUL95\ALPLAYER.EXE, Avance Logic Video Player)
  116.       EndProgramManagerDDE
  117.    ;; EndIf
  118. EndProcedure
  119.  
  120.  
  121. Procedure Install
  122. [String1] := C
  123. [TempDriveLetter] := BlankString
  124. [Number1] := [TempDirSpaceRequired]
  125.  :CheckNextDrive
  126.  If [String1] > B
  127.   If DriveIsPresent [String1]
  128.    If DriveIsRemoveable [String1]
  129.     ;;do nothing
  130.    Else
  131.     If FreeSpaceOnDrive [String1] > [Number1]
  132.      [TempDriveLetter] := [String1]
  133.      [Number1] := FreeSpaceOnDrive [String1]
  134.  
  135.     Else
  136.        :NextDrive
  137.          IncrementString [String1]
  138.          If DriveIsCDROM [String1]
  139.            GoTo NextDrive
  140.          EndIf
  141.          If DriveIsRemote [String1]
  142.            GoTo NextDrive
  143.          EndIf
  144.       GoTo CheckNextDrive
  145.  
  146.     EndIf
  147.    EndIf
  148.   EndIf
  149.  EndIf
  150.  If [String1] = Z
  151.   GoTo ExitGetTempDir
  152.  EndIf
  153.  :ExitGetTempDir
  154. ;; ClearScreen
  155. ;; UpdateWindow
  156.  If [TempDriveLetter] = BlankString
  157.    Dialog @xy(Center,Center) UseHeader "Disk Space Error"
  158.     .LSorry, This Installation requires at least [TempDirSpaceRequired] bytes of Fixed Disk
  159.     .LSpace in order to successfully install!
  160.    EndDialog
  161.    SoLong
  162.  Else
  163.    [TempDirectory] := [TempDriveLetter]:\ALGUL95
  164.    CreateDirectoryIfNecessary [TempDirectory]
  165.    Delay 2000
  166.    ;;ClearScreen
  167.    ;;UpdateWindow
  168.  EndIf
  169.  
  170.   SetReplacementInquiry off
  171.   SetMouseCursor Wait
  172.  TextBox @xy(Center,Center)
  173.    Copying Installation Files ...
  174.  EndTextBox
  175.  ;; QueAllFiles to [WindowsSystemDirectory]
  176.   QueFileGroup 1 to [WindowsSystemDirectory]
  177.   GetQuedFiles Quietly
  178.  
  179.   QueFileGroup 2 to [WindowsDirectory]\INF
  180.   GetQuedFiles Quietly
  181.  
  182.   QueFileGroup 3 to [WindowsSystemDirectory]
  183.   GetQuedFiles Quietly
  184.  
  185.   QueFileGroup 3 to [WindowsDirectory]\SYSBCKUP
  186.   GetQuedFiles Quietly
  187.  
  188. ;;  QueFileGroup 4 to [WindowsDirectory]\COMMAND
  189. ;;  GetQuedFiles Quietly
  190.  
  191.   QueFileGroup 5 to C:\ALGUL95
  192.   GetQuedFiles Quietly
  193.  
  194.   SetMouseCursor Wait
  195.   ClearScreen
  196.   UpdateWindow
  197. EndProcedure
  198.  
  199.  
  200.   If FileExists [WindowsDirectory]\INF\OEM0.INF
  201.       ExamineTextFile [WindowsDirectory]\INF\OEM0.INF
  202.        [Number1] := LineNumberWith ([,AVANCE,])
  203.    If [Number1] <> 0
  204.      DeleteFiles from [WindowsDirectory]\INF Quietly
  205.        OEM0.INF
  206.      EndDeleteFiles
  207.    EndIf
  208.   EndIf
  209.  
  210.   If FileExists [WindowsDirectory]\INF\OEM1.INF
  211.       ExamineTextFile [WindowsDirectory]\INF\OEM1.INF
  212.        [Number1] := LineNumberWith ([,AVANCE,])
  213.    If [Number1] <> 0
  214.      DeleteFiles from [WindowsDirectory]\INF Quietly
  215.        OEM1.INF
  216.      EndDeleteFiles
  217.    EndIf
  218.   EndIf
  219.  
  220.   If FileExists [WindowsDirectory]\INF\OEM2.INF
  221.       ExamineTextFile [WindowsDirectory]\INF\OEM2.INF
  222.        [Number1] := LineNumberWith ([,AVANCE,])
  223.    If [Number1] <> 0
  224.      DeleteFiles from [WindowsDirectory]\INF Quietly
  225.        OEM2.INF
  226.      EndDeleteFiles
  227.    EndIf
  228.   EndIf
  229.  
  230.   If FileExists [WindowsDirectory]\INF\OEM3.INF
  231.       ExamineTextFile [WindowsDirectory]\INF\OEM3.INF
  232.        [Number1] := LineNumberWith ([,AVANCE,])
  233.    If [Number1] <> 0
  234.      DeleteFiles from [WindowsDirectory]\INF Quietly
  235.        OEM3.INF
  236.      EndDeleteFiles
  237.    EndIf
  238.   EndIf
  239.  
  240.   If FileExists [WindowsDirectory]\INF\OEM4.INF
  241.       ExamineTextFile [WindowsDirectory]\INF\OEM4.INF
  242.        [Number1] := LineNumberWith ([,AVANCE,])
  243.    If [Number1] <> 0
  244.      DeleteFiles from [WindowsDirectory]\INF Quietly
  245.        OEM4.INF
  246.      EndDeleteFiles
  247.    EndIf
  248.   EndIf
  249.  
  250.   Do DCI
  251.   ;;Run [WindowsDirectory]\COMMAND\ASCAN.EXE NoPrompt
  252.  
  253. ;;  ExamineTextFile C:\AUTOEXEC.BAT
  254. ;;       [Number1] := LineNumberWith ([,ASCAN,])
  255.  
  256. ;;If [Number1] = 0
  257.  
  258. SetModifyModeTo Modify
  259.  
  260. ;;ModifyTextFile C:\AUTOEXEC.BAT Quietly NoInquiry NoBackup
  261.  ;; AddOrChangeLineWith (,ASCAN,) as "C:\DOS\ASCAN /C" at Beginning
  262. ;;EndModifyTextFile
  263.  
  264. ;;EndIf
  265. ExamineTextFile C:\autoexec.bat
  266.   [Number1] := LineNumberWith (,ASCAN,)
  267. ForgetTextFile
  268. If [Number1] <> 0
  269.    ModifyAutoexecBat Quietly NoInquiry NoBackup
  270.      DeleteLine [Number1]
  271.    EndModifyAutoexecBat
  272. EndIf
  273.  
  274. SoLong Quietly
  275.  
  276. Procedure DCI
  277.      
  278.      ExamineTextFile [WindowsDirectory]\SYSTEM.INI
  279.        [Number1] := LineNumberWith (,ALIDCI,)
  280.        [Number2] := LineNumberWith (,DCIVIDC.CVID=,)
  281.        [Number3] := LineNumberWith (,DCIVIDC.IV31=,)
  282.        [Number4] := LineNumberWith (,VIDC.IV32=,IR32.DLL)
  283.        [Number5] := LineNumberWith (,VIDC.IV31=,IR32.DLL)
  284.        [Number6] := LineNumberWith (,VIDS.DRAW,)
  285.        [Number7] := LineNumberWith (VIDC.MSVC,,msvidc.drv)
  286.        [Number8] := LineNumberWith (,VIDC.MRLE=,MSRLE.drv)
  287.        [Number9] := LineNumberWith (,VIDC.RT21=,)
  288.        [Number10] := LineNumberWith (,VIDC.YVU9=,)
  289.        [Number11] := LineNumberWith (,ALG1301DCI=,)
  290.        [Number12] := LineNumberWith (,VIDC.IV31=,indeov.drv)
  291.      ForgetTextFile
  292.  
  293. ;;Dialog
  294.   ;; [Number2]
  295.   ;; [Number3]
  296.   ;; [Number4]
  297.   ;; [Number5]
  298.   ;; [Number6]
  299.   ;; [Number7]
  300.   ;; [Number8]
  301.   ;;[Number9]
  302.   ;; [Number10]
  303. ;;EndDialog
  304.  
  305. If [Number1] = 0
  306. ModifyTextFile [WindowsDirectory]\SYSTEM.INI NoBackup
  307.  InSection [drivers] 
  308.   AddOrChangeLineWith (DCI=,,) as "DCI=ALIDCI" at Beginning
  309. EndModifyTextFile
  310. EndIf
  311.  
  312.   If [Number2] <> 0
  313.      ModifyTextFile [WindowsDirectory]\SYSTEM.INI NoBackup
  314.        InSection [drivers]
  315.          AddOrChangeLineWith (,DCIVIDC.CVID=,) as ";DCIVIDC.CVID=iccvid.drv" at Beginning
  316.      EndModifyTextFile
  317.     else
  318.  
  319.   EndIf
  320.  
  321.   If [Number3] <> 0
  322.      ModifyTextFile [WindowsDirectory]\SYSTEM.INI NoBackup
  323.        InSection [drivers]
  324.          AddOrChangeLineWith (,DCIVIDC.IV31=,) as ";DCIVIDC.IV31=indeov.drv" at Beginning
  325.      EndModifyTextFile
  326.     else
  327.  
  328.   EndIf
  329.  
  330.   If [Number4] <> 0
  331.      ModifyTextFile [WindowsDirectory]\SYSTEM.INI NoBackup
  332.        InSection [drivers]
  333.          AddOrChangeLineWith (,VIDC.IV32=,) as ";VIDC.IV32=IR32.DLL" at Beginning
  334.      EndModifyTextFile
  335.     else
  336.   EndIf
  337.  
  338.   If [Number5] <> 0
  339.      ModifyTextFile [WindowsDirectory]\SYSTEM.INI NoBackup
  340.        InSection [drivers]
  341.          AddOrChangeLineWith (,VIDC.IV31=,IR32.DLL) as ";VIDC.IV31=IR32.DLL" at Beginning
  342.      EndModifyTextFile
  343.     else
  344.   EndIf
  345.  
  346.   If [Number6] <> 0
  347.      ModifyTextFile [WindowsDirectory]\SYSTEM.INI NoBackup
  348.        InSection [drivers]
  349.      AddOrChangeLineWith (,VIDS.DRAW=,) as ";VIDS.DRAW=UDH.DLL" at Beginning
  350.      EndModifyTextFile
  351.     else
  352.   EndIf
  353.  
  354.   If [Number7] <> 0
  355.     ModifyTextFile [WindowsDirectory]\SYSTEM.INI NoBackup
  356.        InSection [drivers]
  357.          AddOrChangeLineWith (,VIDC.MSVC=,) as ";VIDC.MSVC=msvidc.drv" at Beginning
  358.      EndModifyTextFile
  359.     else
  360.   EndIf
  361.   If [Number8] <> 0
  362.      ModifyTextFile [WindowsDirectory]\SYSTEM.INI NoBackup
  363.        InSection [drivers]
  364.          AddOrChangeLineWith (,VIDC.MRLE=,) as ";VIDC.MRLE=MSRLE.drv" at Beginning
  365.      EndModifyTextFile
  366.     else
  367.   EndIf
  368.  
  369. ;;  If [Number9] <> 0
  370. ;;     ModifyTextFile [WindowsDirectory]\SYSTEM.INI NoBackup
  371. ;;       InSection [drivers]
  372. ;;         AddOrChangeLineWith (,VIDC.RT21=,) as ";VIDC.RT21=ir21_r.dll" at Beginning
  373. ;;     EndModifyTextFile
  374. ;;    else
  375. ;;  EndIf
  376. ;;  If [Number10] <> 0
  377. ;;     ModifyTextFile [WindowsDirectory]\SYSTEM.INI NoBackup
  378. ;;       InSection [drivers]
  379. ;;         AddOrChangeLineWith (,VIDC.YVU9=,) as ";VIDC.YVU9=ir21_r.dll" at Beginning
  380. ;;     EndModifyTextFile
  381. ;;    else
  382. ;;  EndIf
  383.  
  384.   If [Number11] <> 0
  385.      ModifyTextFile [WindowsDirectory]\SYSTEM.INI NoBackup
  386.        InSection [ALGRefRate]
  387.          AddOrChangeLineWith (,ALG1301DCI=,) as "ALG1301DCI=on" at Beginning
  388.      EndModifyTextFile
  389.     else
  390.   EndIf
  391.  
  392.   If [Number12] <> 0
  393.      ModifyTextFile [WindowsDirectory]\SYSTEM.INI NoBackup
  394.        InSection [drivers]
  395.          AddOrChangeLineWith (,VIDC.IV31=,indeov.drv) as ";VIDC.IV31=indeov.drv" at Beginning
  396.      EndModifyTextFile
  397.     else
  398.   EndIf
  399.  
  400.  
  401.  
  402. EndProcedure     
  403.  
  404.  
  405.